﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%Call Head2()%>
<!--#include file="include.asp"-->
<title>文章采集</title></head><body><div class='main400'>
<%
dim TP,Url,TextInfo,code
TP=request("TP")
if TP<>"" then
	Url=Request.Form("Url")
	code=Request.Form("code")
	if len(url)< 10 then
		Call Error2("请正确输入文章地址！")
	End if
	If code="1" Then
		code="UTF-8"
	Else
		code="GB2312"
	End If
	TextInfo=XMLHTTPGet(Url, code)
%>
<form method="post" action="../art/upload.asp?sid=<%=sid%>">
采集地址:<br/>
<input name="url" value="<%=CodeWML(Url)%>" class="input"/>
<br/>采集内容:<br/><textarea name="test" cols="45" rows="20"><%=CodeWml(RemoveHTML(TextInfo))%></textarea><br/>
采集到本站:<br/>
标题:<input name="title" value="" class="input"/><br/>
栏目:<%
Dim rs,sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql = "select classid,class from 74hu_list"
If key=2 And keyids<>"" Then sql="select classid,class from 74hu_list where classid in ("&keyids&")"
rs.open sql,myconn,1,1
If Not rs.eof Then
	w "<select name=""id"">"
	Do While Not rs.eof
		w "<option value="""&rs("classid")&""">"&nowml(rs("class"))&"</option>"
		rs.movenext
	Loop
	w "</select><br/>"
Else
	w "没有文章栏目,必须先<a href=""tjwz.asp?sid="&sid&""">添加文章类别</a><br/>"
End If
%>来源:<input name="author" value="<%=adminArticle%>"/><br/>
<input type="submit" value="保存内容"/>
</form>
<%else%>
<form method="post" action="text.asp?sid=<%=sid%>">
文章地址:<br/>
<input name="url" value="http://" class="input"/><br/>
编码:<select name="code">
<option value="1" selected="">UTF-8</option>
<option value="2">Gb2312</option>
</select><br/>
<input type="submit" value="获取内容"/>
<input type="hidden" name="TP" value="1"/>
</form>
注:遇到乱码选用其他编码<br/>
<%end if%>
----------<br/>
<%if TP<>"" then%>
<a href="text.asp?sid=<%=sid%>">[返回上级]</a><br/>
<%end if%>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><%call Last2%>